home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
autosa1a
/
autosack.frm
next >
Wrap
Text File
|
1999-10-18
|
19KB
|
547 lines
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 3 'Fixed Dialog
Caption = "AUTO SACKER"
ClientHeight = 4380
ClientLeft = 45
ClientTop = 330
ClientWidth = 8730
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4380
ScaleWidth = 8730
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.TextBox box
Height = 4095
Left = 3360
MultiLine = -1 'True
TabIndex = 26
Top = 120
Width = 5055
End
Begin VB.CommandButton Command1
Caption = "Compile Letter"
Height = 495
Left = 360
TabIndex = 25
Top = 3720
Width = 2655
End
Begin VB.CommandButton R_L
Caption = ">"
Height = 255
Left = 2160
TabIndex = 22
Top = 1440
Width = 255
End
Begin VB.CommandButton L_L
Caption = "<"
Height = 255
Left = 840
TabIndex = 21
Top = 1440
Width = 255
End
Begin VB.CommandButton R_Rude
Caption = ">"
Height = 255
Left = 1560
TabIndex = 19
Top = 3240
Width = 255
End
Begin VB.CommandButton L_Rude
Caption = "<"
Height = 255
Left = 360
TabIndex = 18
Top = 3240
Width = 255
End
Begin VB.CommandButton R_Nasty
Caption = ">"
Height = 255
Left = 1560
TabIndex = 16
Top = 2880
Width = 255
End
Begin VB.CommandButton L_Nasty
Caption = "<"
Height = 255
Left = 360
TabIndex = 15
Top = 2880
Width = 255
End
Begin VB.CommandButton R_Stupid
Caption = ">"
Height = 255
Left = 1560
TabIndex = 13
Top = 2520
Width = 255
End
Begin VB.CommandButton L_Stupid
Caption = "<"
Height = 255
Left = 360
TabIndex = 12
Top = 2520
Width = 255
End
Begin VB.CommandButton R_Lazy
Caption = ">"
Height = 255
Left = 1560
TabIndex = 10
Top = 2160
Width = 255
End
Begin VB.CommandButton L_Lazy
Caption = "<"
Height = 255
Left = 360
TabIndex = 9
Top = 2160
Width = 255
End
Begin VB.CheckBox Check4
Caption = "Rude"
Height = 255
Left = 2280
TabIndex = 5
Top = 3240
Width = 2175
End
Begin VB.CheckBox Check3
Caption = "Nasty"
Height = 255
Left = 2280
TabIndex = 4
Top = 2880
Width = 2415
End
Begin VB.CheckBox Check2
Caption = "Stupid"
Height = 255
Left = 2280
TabIndex = 3
Top = 2520
Width = 2295
End
Begin VB.CheckBox Check1
Caption = "Lazy"
Height = 255
Left = 2280
TabIndex = 2
Top = 2160
Width = 2295
End
Begin VB.TextBox From
Height = 285
Left = 840
TabIndex = 1
Text = "Name"
Top = 1080
Width = 2175
End
Begin VB.TextBox To
Height = 285
Left = 840
TabIndex = 0
Text = "Name"
Top = 720
Width = 2175
End
Begin VB.Label Label6
Caption = "By Richard Nicol"
ForeColor = &H00000080&
Height = 255
Left = 1680
TabIndex = 28
Top = 120
Width = 1215
End
Begin VB.Label Label4
Caption = "AUTO SACKER"
ForeColor = &H000000FF&
Height = 255
Left = 360
TabIndex = 27
Top = 120
Width = 1935
End
Begin VB.Label L_T
Alignment = 2 'Center
Caption = "Polite"
Height = 255
Left = 840
TabIndex = 23
Top = 1440
Width = 1575
End
Begin VB.Label Rude
Alignment = 2 'Center
Caption = "Slightly"
Height = 255
Left = 600
TabIndex = 20
Top = 3240
Width = 975
End
Begin VB.Label Nasty
Alignment = 2 'Center
Caption = "Slightly"
Height = 255
Left = 600
TabIndex = 17
Top = 2880
Width = 975
End
Begin VB.Label Stupid
Alignment = 2 'Center
Caption = "Slightly"
Height = 255
Left = 600
TabIndex = 14
Top = 2520
Width = 975
End
Begin VB.Label Lazy
Alignment = 2 'Center
Caption = "Slightly"
Height = 255
Left = 600
TabIndex = 11
Top = 2160
Width = 975
End
Begin VB.Label Label3
Caption = "Employee is:"
Height = 255
Left = 360
TabIndex = 8
Top = 1800
Width = 1815
End
Begin VB.Label Label2
Caption = "From:"
Height = 255
Left = 360
TabIndex = 7
Top = 1080
Width = 855
End
Begin VB.Label Label1
Caption = "To:"
Height = 255
Left = 360
TabIndex = 6
Top = 720
Width = 855
End
Begin VB.Label Label5
Caption = "Letter:"
Height = 255
Left = 360
TabIndex = 24
Top = 1440
Width = 1095
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'rnicol@khi-ro.co.uk
'(not responsible for any fights you get into)
':-)
Dim l1
Dim l2
Dim l3
Dim a1
Dim a2
Dim a3
Dim L_1_P, ST_1_P, N_1_P, R_1_P
Dim L_2_P, ST_2_P, N_2_P, R_2_P
Dim L_3_P, ST_3_P, N_3_P, R_3_P
Dim L_1_F, ST_1_F, N_1_F, R_1_F
Dim L_2_F, ST_2_F, N_2_F, R_2_F
Dim L_3_F, ST_3_F, N_3_F, R_3_F
Dim L_1_U, ST_1_U, N_1_U, R_1_U
Dim L_2_U, ST_2_U, N_2_U, R_2_U
Dim L_3_U, ST_3_U, N_3_U, R_3_U
Private Sub Command1_Click()
Dim letter
Dim Welcome
Dim x
Dim last
x = Form1.To.Text
If L_T = l1 Then Welcome = "Dear " & x & ","
If L_T = l2 Then Welcome = "Dear " & x & ","
If L_T = l3 Then Welcome = x & ","
If L_T
